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PTOD8 - PTT TRACE AND OCTAL ON-LINE DEBUGGING PROGRAM 


DECUS Program Library Write-up 


DECUS No. 8-150 


Abstract 


PTOD8 (PTT Trace and Octal On-Line Debugging Program for PDP-8) is a program to debug a 
running program. 

Communication between operator and program is via the ASR-33 Teletype. 

Features 

- Register examination and modification 

- Multiple breakpoints (break-traps) 

- Memory protection (of a chosen block) 

- Word search (masked or not masked) 

- Tracing a running program (gives a full print out of consequently executed instructions) 

- It is interrupt proof (ION in investigated program is dealt with to make a genuine 
interrupt) 

- Binary tape punching (automatic leader-trailer code and checksum). 


Requirements 

Storage 

PTOD8 requires 1343 (octal) registers. 

PTOD8 HIGH is stored between 6200 and 7543. 
PTOD8 LOW is stored between 200 and 1543. 

Equipment 


Standard PDP-8 


Usage 

Loading 

PTOD8 is loaded by means of the Binary Loader (8-2-U). 

Place PTOD8 (High or Low) in proper reader (ASR-33 or 750). 
Switch register to 7777 and press Load Address. 












For type 750 reader set switch 0 down and press START. 

For ASR-33 put switch 0 up and press START . 

For PTOD8 verson B press CONTINUE switch. 

Load binary tape of program to be debugged. 

Start up. 

PTOD8 has starting address 200 (LOW) and 6200 (HIGH) 

Start PTOD8 with switch register and control switches. 

PTOD8 is now running and awaiting commands from ASR-33 Teletype. 

Restrictions 

Status Active Registers 

Register 0001 and 0002 are used by PTOD8 when Program to be debugged involves ION. 

In case an ION is executed (by means of PTOD8) a trap is placed in locations to 0001 
and 0002 as follows: 

0001, JMP I 2 

0002, ADDRESS OF INTERRUPT DEALING ROUTINE OF PTOD8. 

As soon as genuine interrupt occurs the interrupt dealing routine restores locations 0001 and 
0002 with the proper instructions of the program to be debugged. 

By thus interchanging traps and proper instructions it is taken care of that program to be 
debugged may use registers 0001 and 0002 unaware of the fact that PTOD8 uses the same 
locations. 

This only holds for programs with ION in them. When there is no ION, PTOD8 only uses 
locations 200-1543 (LOW) or 6200-7543 (HIGH). 

Status Core 

PTOD8 will not operate outside of the core memory module in which it resides. 

Description 

PTOD8 is an octal debugging program for PD P-8. Communication between operator and 
PTOD8 occurs on ASR-33 Teletype. 







Commands 


The register examination character / causes the contents of the register addressed by the 
preceding expression to be typed out in octal. The register is then opened for modification. 
(In all examples everything between double quotes (") is typed by the operator and everything 
underlined is typed by PTOD8.) 


Carriage Return (cr) 


Line Feed (If) 


Correction 4— 


Semicolon (;) 


Asterisk (*) 


The value of any expression that has been 
typed by the user immediately preceding the 
carriage return will replace the contents of 
the open register (if opened anyway) and the 
register is closed. 

If nothing has been typed, the contents will 
not be changed. 

Line feed has the same effect as carriage 
return, but, in addition, the next sequential 
register is opened and its contents typed. 

Any typed octal number can be neglected by 
typing <-. 

Separation of first address and last address of a 
chosen block in memory. 

Used for memory protection, word search and 
punch binary tape. 

Asterisk is not printed. 

Used for checksum and trailer punch. 

Trailer is automatically punched after accumulated 
checksum has been punched. 

So, ASR-33 can be left on line. 


Ampersand (&) The octal number that has been typed by the 

user immediately preceding the & will set the 
MASK used for Word Search. Initially this 
MASK is set to 7777. 

After each Word Search the Mask is reset to 7777. 

W (Word Search Block) The number typed by the user preceding W sets the 

upper limit of the block in memory used for Word 
Search. 

Z (Search) PTOD8 will perform a Word Search and print the 

address and contents of every register in the 
desired block of memory whose contents, when 
mashed,are equal to the value of the number typed 
by the user preceding Z. 
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A (Accu) 

L (Link) 

B (Breakpoint) 

R (Remove) 

E (Erase) 

T (Trace) 


G (Go) 

C (Continue) 

S (Skip) 


Typing the letter A causes the contents of the 
Accumulator to be printed and opened for 
modification. A is the accumulator as it 
occurs in the running program under investigation. 

Typing the letter L causes the contents of the 
LINK to be printed and opened for modification. 

L is the LINK as it occurs in the running program 
under investigation. 

Insert a breakpoint at the address printed by the 
user immediately preceding command B. 

A maximum of 40 (octal) breakpoints can be 
inserted at one time. 

Remove the breakpoint that was previously 
inserted at the address given by the number 
immediately preceding R. 

Remove all previously inserted breakpoints. 

The number typed by the user immediately 
preceding T gives the address where PTOD8 
will start to trace (print out consequently 
executed instructions) the program to be 
debugged. 

Cancelling the T-mode can be done by: 

"mT" where m> the highest reachable address 
of the program to be debugged. 

Restart PTOD8. 

Start the program to be debugged at address 
typed by the user immediately preceding G. 

When PTOD8 has returned command to the 
user (in a breakpoint or in trace mode, etc.) 
typing letter C means to continue executing 
instructions. 

When PTOD8 has returned command to the user 
(in a breakpoint or in a trace mode) typing letter 
S means to execute an unconditional Skip. 



M (Memory Protection) 


P (Punch Binary Tape) 


Illegal Character 


This can be useful when the instruction to 
be executed is, for example, an ISZ or 
when the program to be debugged has a 
reading sequence. 

The number typed by the user immediately 
preceding M is the upper boundary of the 
section in memory that is protected. When¬ 
ever the running program uses any address 
within this section of memory PTOD8 will 
print a message. 

Number typed by the user preceding letter 
B is upper limit of a block of instruction to 
be punched in binary format. After command 
P the PTOD8 provides leader code automatically 
provided the previous command of the user 
was an Asterisk (* for checksum and trailer 
code). It is thus possible to punch consequent 
block in binary format whereas only the first 
time leader code will be punched. 

PTOD8 punches ? and returns command. 


Switch Register 


When PTOD8 is dealing with an object program in Trace Mode, switch register setting means 


SR = 0 


Print every executed instruction of object program without 
returning command to user. 


SR /0 


Print one executed instruction of object program and return 
command to user. 


SR(0) -1 (PTOD8 version B only.) Print next instruction to be executed 

and return command to user. 

This can be of use to trap a program that is running beyond 
control of the user in case he forgot to request Trace Mode, 
etc. 
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CHANGES TO DECUS NO. 8-150 

When using DECUS No. 8-150 (PTOD8) with a PDP-8/S computer, a defect occurs which 
affects the 8/S. The problem is the combined micro instruction CMA RAL that occurs at 
location 1013 (low) and 7013 (high). This combination is illegal on the serial logic PDP-8/S. 
It is, however, valid on the PDP-8 machines with parallel internal logic. 

Patch space is rather short in a neat program such as PTOD8, but the following patch will 
correct operation on PDP-8/S machines (PTOD8 low). 


1013 

5375 

JMP PATCH 1 

1175 

7040 PATCH 1, 

CMA 

1176 

7004 

RAL 

1177 

5214 

JMP 1014/RETURN 


For PTOD8 (high) add 6000 to all addresses. 

One other error has been found in the interpretive execution of ION and IOF instructions. At 
present, the pseudo-accumulator and pseudo-link are cleared erroneously by these instructions. 
The following patch rectifies this problem, but extends the program area to the end of the last 


program 

page. 





(PTOD8 low) 

Add 6000 to addresses marked 

*1402 

5373 


JMP PATCH 2 

*1415 

5373 


JMP PATCH 2 

*1417 

5373 


JMP PATCH 2 

*1573 

2777 

PATCH 2, 

ISZ PC 

*1574 

7000 


NOP 

*1575 

5776 


JMP TRRET 

*1576 

* 0602 


TRRET 

*1577 

* 0753 


PC 
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/PTT TRACE AND OCTAL DEBUGGING PROGRAM MODIFIED VERSION 1 
/FEATURES{REGISTER EXAMINATION AND MODIFICATION, 

/MULTIPLE BREAKPOINTS*MEMORY PROTECTION, INTERRUPT FACILITY 
/WORD SEARCH, TRACING A RUNNING PROGRAM,BINARY TAPE PUNCHING 
/PAGE 1 


0200 

6032 

BEGIN* 

6032 

0201 

6046 


6046 

0202 

3370 


DCA TSW 

0203 

3365 


DCA TMODS 

0204 

5772 


JMP I CLEAR 

0205 

5336 


JMP CLI ST 

0206 

4773 

BEG2* 

JMS I CRLF1 

0207 

3371 

BEG 3* 

DCA WORD 

0210 

4774 


JMS I READI 

0211 

4323 


JMS SAD 

0212 

0215 

CR* 

215 

0213 

5250 


JMP CRLF2 

0214 

4323 


JMS SAD 

0215 

0212 

LF* 

212 

0216 

5250 


JMP CRLF2 

0217 

4323 


JMS SAD 

0220 

0252 


2 52 

0221 

5775 


JMP I STARI 

0222 

4776 


JMS I PNCI 

0223 

3354 


DCA CSW 

0224 

6036 


KRB 

0225 

4323 


JMS SAD 

0226 

0257 

SLSH* 

257 

0227 

5242 


JMP SLASH 

0230 

4323 


JMS SAD 

0231 

0302 


302 

0232 

5276 


JMP BMOD 

0233 

4323 


JMS SAD 

0234 

0324 


324 

0235 

5311 


JMP TMOD 

0236 

4323 


JMS SAD 

0237 

0307 

r 

307 

0240 

5316 

JMP GO 

0241 

5777 


JMP I GOON 

0242 

1371 

SLASH* 

TAD WORD 

0243 

3363 


DCA REG 

0244 

1763 


TAD I REG 

0245 

4761 


JMS I OCTP 

0246 

3357 


DCA LOCK 

0247 

5207 


JMP BEG3 

0250 

1354 

CRLF2* 

TAD CSW 

0251 

7650 


SNA CLA 

0252 

5256 


JMP CLOSE 

0253 

1371 


TAD WORD 

0254 

2357 


ISZ LOCK 

0255 

3763 


DCA I REG 

0256 

7040 

CLOSE* 

CMA 

0257 

3357 


DCA LOCK 

0260 

3354 


DCA CSW 

0261 

6036 


KRB 

0262 

4323 


JMS SAD 

0263 

0215 


215 

0264 

5206 


JMP BEG2 

0265 

, 7200 


CLA 

0266 

2363 


ISZ REG 

0267 

7000 


NOP 

0270 

4773 


JMS I CRLF1 

0271 

1363 


TAD REG 

0272 

4761 


JMS I OCTP 


/INITIATE LOW SPEED READER 
/INITIATE LOW SPEED PUNCH 
/TSW:=0 
/TM0DS:=0 

/CLEAR OTHER PROGRAM SWITCHES 

/CLEAR LIST OF BREAKPOINTS 

/PUNCH CRLF 

/CLEAR REGISTER WORD 

/READ NEXT CHARACTER 

/SKIP IF ACCU DIFFERS FROM NUMBER 

/CARRIAGE RETURN? 

/YES 

/LINE FEED? 

/YES 

/ASTERISK? 

/YES 

/FROM NOW ON PRINT CHAR. 

/CSW:=0 

/READ SAME CHAR. FROM TTI BUFFER 

/SLASH? 

/YES 

/LETTER B? 

/YES 

/LETTER T? 

/YES 

/LETTER G? 

/YES 

/NO, GO ON COMPARING 

/ADDRESS OF REGISTER TO BE EXAMINED 
/STORE IN ORDER TO GO INDIRECT 
/CONTENT OF REQUIRED REGISTER 
/PUNCH IN OCTAL FORMAT 
/L0CK:=0 

/RETURN COMMAND TO OPERATOR 
/SWITCH FOR CIPHER RECEPTION 
/FORE LAST CHAR. WAS A CIPHER? 

/NO 

/YES, DATA FOR REGISTER MOD. 

/CLOCK)=-1? 

/NO,MODIFY REGISTER 

/YES,NO MODIFICATION ALLOWED. ACCU:4 
/CLOCK):=-1 

/CSW:=0,PREPARATION FOR NEXT NUMBER 
/READ CHAR ONCE MORE FROM TTI BUFFER 

/CR? 

/YES,PUNCH CRLF , RETURN COMMAND 
/NO,EXAMINE NEXT REGISTER 
/PUNCH CRLF 

/ADDRESS NEXT REGISTER 
/PUNCH OCTAL 
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0273 

1226 

PSLH,.. 

~TAT> SLSH 

/SLASH 

0274 

4776 


JMS I PNCI 

/PUNCH SLASH 

0275 

5244 


JMP SLASH+2 

/RETURN TO EXAMINATIONROUTINE 

0276 

4344 

BMOD, 

JMS PREPR 

/PREPARE POINTER AND COUNTER 

0277 

1762 

bnxt. 

TAD I PNTR 


0300 

7650 


SNA CLA 

/EMPTY PLACE IN LIST? 

0301 

5306 


JMP.+5 

/YES*INSERT BREAKPOINT 

0302 

2362 


*" isz pntr 

' TmoTtry again 

0303 

2356 


ISZ LCNT 

/END OF LIST? 

0304 

5277 


JMP BNXT 

/NO 

0305 

5206 


JMP BEG2 

/YES RETURN COMMAND 

0306 

1371 


TAD WORD 

/REQUIRED BREAKADDRESS 

0307 

3762 


DCA I PNTR 

/INSERT IN LIST 

0310 

5206 


JMP BEG2 

/RETURN COMMAND TO OPERATOR 

031 1 

1371 

TMOD, 

TAD WORD 

/ADDRESS OF FIRST INSTR. TO BE TRACE 

0312 

3366 


DC A TMREG 

/STORE 

0313 

3370 


DCA TSW 

/CLEAR TRACE SWITCH 

0314 

2365 


ISZ TMODS 

/INDICATION THAT T MODE IS REQUIRED 

0315 

5206 


JMP BEG2 

/RETURN COMMAND 

0316 

3353 

GO, 

DCA LINK 

/CLEAR LINK 

0317 

3352 


DCA ACCU 

/CLEAR ACCU 

0320 

1371 


TAD WORD 

/START ADDRESS OF PROGRAM TO BE HANE 

0321 

0322 

3364 

5767 


DCA STADR 

JMP I TRACER 

/GO AND TRACE 

0323 

0000 

SAD, 

0 

/SUBROUTINE SKIP IF ACCU DIFFERS 

0324 

3344 


DCA PREPR 

/STORE CHAR TEMPORARELY 

0325 

1723 


TAD I SAD 

/NUMBER 

0326 

7041 


CIA 

/ CONVERT INTO NEGATIVE 

0327 

1344 


TAD PREPR 

/ADD STORED NUMBER 

0330 

7650 


SNA CLA 

/EQUAL? 

0331 

5334 


JMP.+3 

/YES 

0332 

1344 


TAD PREPR 

/NO* RESTORE ACCU 

0333 

2323 


ISZ SAD 

/INCREMENT RETURN ADDRESS 

0334 

2323 


ISZ SAD 

/INCREMENT RETURN ADDRESS 

0335 

5723 


JMP I SAD 

/EXIT 

0336 

4344 

CL I ST, 

JMS PREPR 


0337 

3762 


DCA I PNTR 

/CLEAR 

0340 

2362 


ISZ PNTR 

/STEP UP POINTER 

0341 

2356 


ISZ LCNT 

/READY? 

0342 

5337 


JMP.-3 

/NO*RETURN 

0343 

5206 


JMP BEG2 

/YES 

0344 

0000 

PREPR, 

0 

/SUBROUTINE TO INIT. POINTER AND LCfT 

0345 

1360 


TAD M40 

/LENGTH OF LIST 

0346 

0347 

3356 

1355 


DCA LCNT 

TAD LADR 

/ADDRESS OF LIST 

0350 

0351 

3362 

5744 


DCA PNTR 

JMP I PREPR 

/EXI T 




/CONSTANTS AND 

INDIRECT ADDRESSES PAGE 1 

0352 

0000 

ACCU, 

0 


0353 

0000 

LINK, 

0 


0354 

0000 

CSW, 

0 


0355 

1525 

LADR, 

BLST 


0356 

0000 

LCNT, 

0 


0357 

0000 

LOCK, 

0 


0360 

7740 

M40, 

-40 


0361 

0671 

OCTP, 

OCPN 


0362 

0000 

PNTR, 

0 


0363 

0000 

REG, 

0 


0364 

0000 

STADR, 

0 


0365 

0000 

TMODS, 

0 


0366 

0000 

TMREG, 

0 


0367 

0600 

TRACER, 

TRACE 


0370 

0000 

TSW, 

0 


0371 

0000 

WORD, 

0 

7 

0372 

1227 

CLEAR, 

CLR 




0373 

1221 

CRLF 1 i 

PCL 

0374 

0745 

READI » 

READ 

0375 

0535 

STARI# 

STAR 

0376 

0726 

PNC I » 

PUNCH 

0377 

0400 

GOON, PROC 

*BEGIN+200 

0400 

4747 

PR0C> 

JW.S I SADI 

0401 

0305 


305 

0402 

5751 


JMP I ERSE 

0 403 

4747 


JMS I SADI 

0404 

0322 


322 

0405 

5231 


JMP RMUV 

0406 

4747 


JMS I SADI 

0407 

0301 


301 

0410 

5246 


JMP ACU 

041 1 

4747 


JMS I SADI 

0412 

0314 


314 

0413 

5245 


JMP LNK 

0414 

4747 


JMS I SADI 

0415 

0303 


303 

0416 

5750 


JMP I INTP1 

0417 

4747 


JMS I SADI 

0420 

0315 


315 

0421 

5253 


JMP MPRT 

0422 

4747 


JMS I SADI 

0 42 3 

0320 


320 

0424 

5264 


JMP BINT 

0425 

4747 


JMS I SADI 

0426 

0273 


273 

0427 

5261 


JMP FADR 

0430 

5775 


JMP I GOON 1 

0431 

4752 

RMUV, 

JMS I PREP 1 

0432 

1753 


TAD I PNTR1 

0433 

3346 


DCA TEM3 

0434 

1746 

RNXT* 

TAD I TEM3 

0 43 5 

7041 


CIA 

0436 

1754 


TAD I WRDI 

0437 

7650 


SNA CLA 

0440 

3746 


DCA I TEM 3 

0441 

2346 


ISZ TEM3 

0 442 

2755 


ISZ I LCNT1 

0443 

5234 


JMP RNXT 

0444 

5756 


JMP I BEG2I 

0445 

7201 

LNK* 

CLA I AC 

0 446 

1357 

ACUj 

TAD ACCUI 

0447 

3760 


DCA I REG 1 

0450 

1361 


TAD SP 

0451 

4763 


JMS I PNCI1 

0452 

5762 


JMP I PSLH1 

0453 

2365 

MPRTj 

ISZ MSW 

0454 

1754 


TAD I WRDI 

0455 

3364 


DCA EADR 

0456 

1343 


TAD T8ADR 

0457 

3367 


DCA BADR 

0460 

5756 


JMP I BEG2I 

0461 

17 54 

FADRj 

TAD I WRDI 

0462 

3343 


DCA TBADR 

0463 

5766 


JMP I BEG31 

0464 

7 402 

BINT* 

HLT 

0465 

4776 


JMS I PTRI 

0466 

4745 


JMS I RSTI 

0467 

1754 


TAD I WRDI 


/INVESTIGATION OF COMMAND SIGNS 
/LETTER E? 

/YES ERASE ALL BREAKPOINTS 
/LETTER R? 

/YES REMOVE 1 BREAKPOINT 
/NO 

/LETTER A? 

/YES 

/NO 

/LETTER L? 

/YES 

/LETTER C? 

/GO TO INTERPRETATOR 
/LETTER M? 

/YES MEMORY PROTECTION MODE 
/LETTER P? 

/YES,PUNCH TAPE IN BINARY 
/; ? 

/YES , FIRST ADDRESS OF BLOCK 
/INVESTIGATION OF COMMAND SIGNS 
/PREPARE LIST HANDLING 

/STORE TO GO INDIRECT 

/CONTENT OF FIRST PLACE IN LIST 

/CONVERT TO NEGATIVE 

/ADD ADDRESS OF BREAKPOINT 

/EQUAL? 

/YES, REMOVE 
/NO, TRY NEXT 
/END OF LIST? 

/NO 

/YES RETURN COMMAND 

/ACCIJ: = 1, ADDRESS L I NK= ADDRESS ACCU+ 

/ADDRESS OF PROGRAM ACCU 

/FILL REG FOR REG EXAMINATION 

/SPACE 

/PUNCH 

/PUNCH SLASH 

/MEMORY PROTECT SWITCH:=1 
/LAST ADDRESS OF BLOCK 
/STORE 

/TEMP. FIRST ADDRESS OF BLOCK 
/STORE IN FIRST ADDR. OF MEMPROT. 
/RETURN COMMAND 
/FIRST ADDRESS OF BLOCK 

/store: 

/RETURN COMMAND WITHOUT CRLF 
/ROUTINE TO PUNCH BINARY TAPE 
/ROUTINE TRAILER-LEADER PUNCH 
/RESTORE PLACE 1 AND 2 
/LAST ADDRESS OF BLOCK TO BE PUNCHED 


8 




0470 

3364 


DCA FADR 

/STORE 

0 471 

1370 


TAD Cl 00 

/CHARACTER 

0 472 

3371 


DCA ASRS 

/IDENTIFICATION OF FIRST ADDRESS 

0473 

1364 


TAD EADR 


0474 

7040 


CM A 


0475 

1343 


TAD TBADR 

/NUMBER OF WORDS TO PUNCH 

0476 

3372 


DCA BCMT 

/STORE 

0477 

1343 


TAD TBADR 

/FIRST AND CONSEQUENT ADDRESSES 

0500 

431 1 


JMS PHIN 

/PUNCH BINARY 

0 501 

3371 


DCA ASRS 

/CLEAR IDENTIFICATION MARK 

0 502 

1743 


TAD I TBADR 

/INSTRUCTION 

0503 

431 1 


JMS PBIN 

/PUNCH BINARY 

0504 

2343 


ISZ TBADR 

/STEP UP POINTER OF BLOCK 

0505 

7000 


NOP 

/IN CASE ISZ SKIPS 

0506 

2372 


ISZ BCNT 

/END OF BLOCK? 

0507 

5302 


JMP.-5 

/NO, NEXT WORD 

0510 

5766 


JMP I BEG3I 

/RETURN COMMAND WITHOUT CRLF 

051 1 

0000 

PBIN, 

0 

/PUNCH ONE WORD BINARY 

0512 

3346 


DCA TEM3 

/STORE WORD 

0513 

1346 


TAD TEM 3 


0514 

7012 


RTR 


0515 

7012 


RTR 


0516 

7012 


RTR 

/MOST SIGNIFICANT PART FIRST 

0517 

0373 


AND M77 

/MASK 6 BITS 

0520 

1371 


TAD ASRS 

/ADD IDENTIFICATION MARK 

0 521 

4326 


JMS PCHS 

/PUNCH AND KEEP CHECKSUM 

0522 

1346 


TAD TEM3 


0523 

0373 


AND M77 

/LEAST SIGNIFICANT PART OF THE WORD 

0524 

4326 


JMS PCHS 


0 52 5 

5711 


JMP I PBIN 

/EXIT 

0526 

0000 

PCHS, 

0 


0527 

6046 


6046 


0530 

6041 


6041 


0531 

5330 


JMP.-1 


0 532 

1374 


TAD CHS 

/CHECKSUM 

0533 

3374 


DCA CHS 

/ADD UP 

0534 

5726 


JMP I PCHS 

/EXIT 

0535 

3777 

STAR, 

DCA I LFLGI 


0536 

1374 


TAD CHS 

/PUNCH CHECKSUM, END BINARY TAPE 

0537 

4311 


JMS PBIN 


0540 

3374 


DCA CHS 

/CLEAR CHECKSUM 

0541 

4744 


JMS I PTRALI 


0 542 

5766 


JMP I BEG3I 

/RETURN COMMAND WITHOUT CRLF 



/CONSTANTS AND VARIABLES TRACER PAGE 2 

0 543 

0000 

TBADR, 

0 


0544 

1430 

PTRALI, 

PTRAIL 


0545 

1420 

RSTI , 

RST 


0546 

0000 

TEM 3, 

0 


0547 

0323 

SADI, 

SAD 


0550 

1000 

INTP1, 

I NTP 


0551 

0336 

ERSE, 

CL I ST 


0552 

0344 

PREP1, 

PREPR 


0553 

0362 

PNTR1, 

PNTR 

' 

0554 

0371 

WRDI, 

WORD 


0555 

0356 

LCNT1, 

LCNT 


0556 

0206 

BEG2I, 

BEG2 


0557 

0352 

ACCUI, 

ACCU 


0560 

0363 

REG 1, 

REG 


0561 

0240 

SP, 

240 


0562 

0273 

PSLH1, 

PSLH 


0563 

0726 

PNC I 1, 

PUNCH 


0564 

0000 

EADR, 

0 


0565 

0000 

MSW, 

0 


0566 

0207 

BEG3I, 

BEG3 


0567 

0000 

BADR, 

0 
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0 570 

01 00 

Cl 00, 

100 ' 

0571 

0000 

ASRS, 

0 

0572 

0000 

BCNT, 

0 

0 573 

0077 

M77, 

77 

0 574 

0000 

CHS, 

0 

0575 

1463 

GOON 1, 

PR0C2 

0576 

1440 

PTRI , 

LEAD 

0577 

1500 

LFLGI, 

LFLAG 



♦BEGIN+400 

0600 

1752 

TRACE, 

TAD I STAD1 

0601 

353 


DC A PC 

0 602 

1354 

TRRET, 

TAD IONF 

0603 

7640 


SZA CLA 

0604 

6001 


ION 

0605 

1757 


TAD I TM0D1 

0606 

7650 


SNA CLA 

0607 

5226 


JMP SBPT 

0610 

6002 


I OF 

061 1 

1760 


TAD I TSW1 

0612 

7640 


SZA CLA 

0613 

5243 


JMP PINS 

0614 

1761 


TAD I TMRG1 

0615 

7100 


CLL 

0616 

7041 


CIA 

0617 

1353 


TAD PC 

0620 

4316 


JMS COMPR 

0621 

7410 


SKP 

0622 

5226 


JMP SBPT 

0623 

7001 


I AC 

0624 

3760 


DCA I TSW1 

0625 

5243 


JMP PINS 

0626 

4755 

SBPT, 

JMS I PREPI 

0627 

1762 


TAD I PNTR2 

0630 

3253 


DCA PRIN 

0631 

1653 

SNXT, 

TAD I PRIN 

0632 

7041 


CIA 

0633 

1353 


TAD PC 

0634 

7650 


SNA CLA 

0635 

5243 


JMP PINS 

0636 

2253 


ISZ PRIN 

0637 

2763 


ISZ I LCNT2 

0640 

5231 


JMP SNXT 

0641 

6002 


I OF 

0642 

5764 


JMP I INTP2 

0643 

6002 

PINS, 

I OF 

0644 

4253 


JMS PRIN 

0645 

7604 


LAS 

0646 

7650 


SNA CLA 

0647 

5764 


JMP I INTP2 

0650 

1353 

PRET, 

TAD PC 

0651 

3765 


DCA I REG2 

0652 

5756 


JMP I SLS1 

0653 

0000 

PRIN, 

0 

0654 

4766 


JMS I CRLF3 

0655 

1353 


TAD PC 

0656 

4271 


JMS OCPN 

0657 

1767 


TAD I LINK1 

0660 

1372 


TAD C260 

0661 

4326 


JMS PUNCH 

0662 

1371 


TAD SP1 

0663 

4326 


JMS PUNCH 

0664 

1770 


TAD I ACCU1 

0665 

4271 


JMS OCPN 


/ROUTINE TO DETERMINE WHETHER NEXT 
/INSTRUCTION HAS TO BE PRINTED OR NOT 
/PROGRAM INTERRUPT SWITCH 
/HAS THERE BEEN ION? 

/YES ENABLE INTERRUPTS 
/TRACE MODE REQUESTED ? 

/NO 

/NO, IS IT BREAKPOINT? 

/YES , DISABLE INTERRUPTS 

/IS TRACING ACTIVE ALREADY? 

/YES* PRINT 

/NO, FIRST ADDRESS TO BE TRACED 


/PC - TRACE ADDRESS 
/COMPARE ROUTINE 
/EQUAL 

/PC<TMREG,IS IT BREAKPOINT? 

/PC>TMREG 

/TSW:= 1 

/PRINT INSTRUCTION, ACCU ETC 


/STORE TO GO INDIRECT 


/COMPARE WORDS IN BREAKLIST WITH PC 
/EQUAL? 

/YES PRINT 
/STEP UP POINTER 
/END OF LIST? 

/NO, NEXT 

/DISABLE INTERRUPTS 
/EXIT 

/DISABLE INTERRUPTS 

/PRINT ADDRESS, LINK, ACCU AND INSTR 
/LOAD WITH SWITCHREG 

/CONTINUE 

/LOAD REG WITH PC FOR 
/REGISTER EXAMINATION 

/CRLF 

/PROGRAM COUNTER 
/PRINT OCTAL 
/LINK 

/CHARACTER IN ASCII 

/SPACE 

/ACCU 
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0666 

1753 


TAD I PC 

/INSTRUCTION 

0667 

4271 


JMS OCPN 


0670 

5653 


JMP I PRIN 

/EXIT 

0671 

0000 

OCPN# 

0 

/SUBROUTINE PRINT NUMBER OCTAL 

0672 

3316 


DCA COMPR 


0673 

1374 


TAD M4 

/ - 4 

0 674 

3375 


DCA OCNT 

/INITIATE COUNTER 

0675 

1316 


TAD COMPR 

/NUMBER 

0676 

7004 


RAL 


0677 

7004 


RAL 


0700 

7006 


RTL 

/SHIFT MOST SIGNIFICANT OCTAL 

0701 

3316 


DCA COMPR 

/STORE 

0702 

1316 


TAD COMPR 


0703 

0373 


AND MS7 

/MASK 3 BITS 

0704 

1372 


TAD C260 

/CHARACTER IN ASCII 

0705 

4326 


.JMS PUNCH 


0706 

1316 


TAD COMPR 


0707 

2375 


ISZ OCNT 

/READY? 

0710 

5277 


JMP* - 1 1 

/NO# NEXT OCTAL 

071 1 

7300 


CL A CLL 

/YES 

0710 

3316 


DCA COMPR 


07 13 

1371 


TAD SP1 

/SPACE 

0714 

4326 


JMS PUNCH 


0715 

567 1 


JMP I OCPN 

/EXIT 

0716 

0000 

COMPR, 

0 

/SUBROUTINE TO COMPARE TWO NUMBERS 

0717 

7650 


SNA CLA 

/DIFFERENCE IN ACCU 

0720 

5716 


JMP I COMPR 

/EQUAL 

0721 

7430 


SZL 


0722 

2316 


ISZ COMPR 

/> 

0723 

2316 


ISZ COMPR 

/< 

0724 

7100 


CLL 


0725 

5716 


JMP I COMPR 

/EXIT 

0726 

0000 

PUNCH# 

0 


0727 

6046 


6046 


0730 

6041 


6041 


0731 

5330 


JMP.- 1 


0732 

7200 


CLA 


0733 

5726 


JMP I PUNCH 


0734 

7200 

INTD# 

CLA 


0735 

3354 


DCA IONF 

/ I ONF: = 0 UNTIL NEXT ION 

0736 

3777 


DCA I IONFHI 

/CLEAR IONFH 

0737 

1353 


TAD PC 


0740 

3000 


DCA 0 

/RETURN ADDRESS TO 0 

0 7^1 

4776 


JMS I RESP.E 


0742 

7001 


I AC 

/ACCU S = 1 

0743 

3353 


DCA PC 

/SET PC TO 1 

0744 

5202 


JMP TRRET 

/TRACER 

0745 

0000 

READ# 

0 


0746 

6031 


6031 


0747 

5346 


JMP*- 1 


0750 

6036 


6036 


0751 

5745 


JMP I READ 




/CONSTANTS AND VARIABLES TRACER PAGE3 

0752 

0364 

STAD1# 

STADR 


0753 

0000 

PC# 

0 


0754 

0000 

IONF# 

0 


0755 

0344 

PREPI# 

PREPR 


0756 

0246 

SLS 1 # 

SLASH*4 


0757 

0365 

TM0D1# 

TMODS 


0760 

0370 

TSW 1 # 

TSW 


0761 

0366 

TMRG 1 # 

TMREG 


0762 

0362 

PNTR2# 

PNTR 


0763 

0356 

LCNT2# 

LCNT 


0764 

1000 

INTP2# 

I NTP 
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0765 

0363 

REG 2* 

REG 

0766 

1221 

CRLF3* 

PCL 

0767 

0353 

LINK1* 

LINK 

0770 

0352 

ACCU1 * 

ACCU 

0771 

0240 

SP1* 

240 

0772 

0260 

C260* 

260 

0773 

0007 

MS7* 

7 

0 774 

7774 

M4* 

-4 

0775 

0000 

OCNT, 

0 

0776 

1044 

RESHE* 

REST 

0777 

1 172 

IONFHI* 

IONFH 



*BEGIN+600 

1000 

1372 

I NTP* 

TAD IONFH 

1001 

3750 


DCA I I0NF1 

1002 

1740 


TAD I PCI 

1 003 

3341 


DCA PCD 

1 004 

1742 


TAD I MSWI 

1 005 

7650 


SNA CLA 

1 006 

5212 


JMP.+4 

1007 

1341 


TAD PCD 

1010 

4764 


JMS I INBL1 

1011 

5252 


JMP PMES 

1012 

1741 


TAD I PCD 

1013 

7044 


CMA RAL 

1014 

7730 


SPA SZL CLA 

1015 

5260 


JMP GR5 

1016 

1741 


TAD I PCD 

1017 

1343 


TAD MI ON 

1020 

7450 


SNA 

1021 

5771 


JMP I PI ONI 

1022 

1344 


TAD Ml 

1023 

7650 


SNA CLA 

1024 

5770 


JMP I PIOFI 

1025 

1741 


TAD I PCD 

1026 

3232 

DO* 

DCA •+4 

1027 

1745 


TAD I LINK2 

1030 

71 10 


CLL RAR 

1031 

1746 


TAD I ACCU2 

1032 

0000 


0 

1033 

7410 


SKP 

1034 

2740 


ISZ I PCI 

1035 

7000 


NOP 

1036 

2740 


ISZ I PCI 

1037 

7000 


NOP 

1040 

3746 


DCA I ACCU2 

1041 

7204 


GLK 

1042 

3745 


DCA I LINK2 

1043 

5747 


JMP I TRACI 

1044 

0000 

REST* 

0 

1 045 

1373 


TAD DUM1 

1046 

3001 


DCA 1 

1047 

1374 


TAD DUM2 

1050 

3002 


DCA 2 

1051 

5644 


JMP I REST 

1052 

4751 

PMES* 

JMS I PINS 1 

1053 

1352 


TAD F 

1054 

47 54 


JMS I PRNT 

1055 

1353 


TAD A 

1056 

4754 


JMS I PRNT 

1057 

5755 


JMP I PRETI 

1060 

1741 

GR5* 

TAD I PCD 

1061 

0356 


AND MS 177 

1062 

3357 


DCA TEM1 

1063 

1741 


TAD I PCD 


/INTERPRETATION ROUTINE 
/STORE TO GO INDIRECT 
/MEMORY PROTECT SWITCH 
/PROTECTION REQUESTED? 

/NO 

/PROGRAM COUNTER 
/IN PROT. BLOCK? 

/YES, PRINT MESSAGE 
/NO 

/IF LINK= 0 AND ACCU POS. THEN 
/GROUP 6 OR 7 
/NO, GROUP 5 
/NO,INSTRUCTION 
/-6001 
/IS IT ION? 

/YES 

/,NO, ADD - 1 
/IS IT I OF? 

/YES 

/INSTRUCTION 
/STORE INSTRUCTION 
/LINK 

/RESTORE LINK 
/ACCU 

/NON SKIPPING INSTRUCTION 
/STEP UP PROGRAM COUNTER 

/SKIPPING INSTRUCTION 

/SAVE ACCU 

/SAVE LINK 

/GO TO TRACING PROGRAM 
/RESTORE 1 AND 2 


/PRINT INSTRUCTION 
/LETTER F 
/PRINT 
/LETTER A 

/RETURN COMMAND 
/INSTRUCTION 

/MASK RELATIVE ADDRESS BITS 
/STORE TEMPORARELY 
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1 064 

7006 


RTL 


1065 

7006 


RTL 

/I-BIT TO LINK, P-BIT TO SIGN 

1 066 

7700 


SMA CLA 

/IS P-BIT PRESENT/ 

1067 

5327 


JMP AUTO 

/NO,PAGE 0 ,LOOK FOR AUTO INDEX 

1070 

1341 


TAD PCD 

/YES 

1071 

0360 


AND MS7600 

/PAGE BITS OF ADDRESS 

1072 

1357 


TAD TEM1 


1073 

3357 


DCA TEM1 

/ABSOLUTE ADDRESS OF MEMORY 

1 074 

7420 

ADI D* 

SNL 

/REFERENCE INSTRUCTION 

1075 

5300 


JMP.+3 

/NO I-BIT 

1076 

1757 


TAD I TEM1 

/I-BIT, GO INDIRECT 

1077 

3357 


DCA TEM1 


1 100 

1742 

MPRT1* 

TAD I MSWI 

/MEMORY PROTECTION ABSOLUTE ADDRESS 

1 101 

7650 


SNA CLA 

/REQUESTED? 

1 102 

5306 


JMP.+4 

/NO, FORGET ABOUT IT 

1 103 

1357 


TAD TEM1 

/YES, ABSOLUTE ADDRESS 

1 104 

4764 


JMS I TNBL1 

/IN PROTECTED BLOCK? 

1 105 

52 52 


JMP PMES 

/YES, PRINT MESSAGE 

1 106 

1741 


TAD I PCD 

/NO, INSTRUCTION 

1 107 

0367 


AND MS7000 

/OP CODE 

1110 

1361 


TAD M4000 

/-4000 

1111 

7450 


SNA 

/IS IT JMS? 

1 1 12 

5320 


JMP PJMS 

/YES 

1113 

1362 


TAD M1000 

/IS IT JMP? 

1114 

7450 


SNA 


1115 

5324 


JMP PJMP 

/YES 

1116 

1363 


TAD 1ST 

/1 ST= JMP I TEM 1 

1117 

5226 


JMP DO 


1 120 

7001 

PJMS* 

I AC 

/RETURN ADDRESS SUBROUTINE 

1 121 

1740 


TAD I PCI 

/+ 1 

1 122 

3757 


DCA I TEM1 

/STORE IN FIRST PLACE 

1 123 

7001 


I AC 

/OF SUBROUTINE 

1 124 

1357 

P JMP* 

TAD TEM1 

/ADDRESS NEXT INSTRUCTION 

1 125 

3740 


DCA I PCI 

/TO BE EXECUTED 

1 126 

5747 


JMP I TRACI 

/GO TO TRACING PROGRAM 

1 127 

7420 

AUTO* 

SNL 

/I-BIT? 

1 130 

5300 


JMP MPRT1 

/NO,RETURN 

U31 

1741 


TAD I PCD 

/INSTRUCTION 

1 132 

0365 


AND. MS370 

/MASK TO FIND AUTOINDEX 

1 133 

1366 


TAD M10 


1 134 

7640 


SZA CLA 

/AUTO INDEX? 

1 135 

5276 


JMP ADID+2 

/NO 

1 136 

2757 


ISZ I TEM1 

/YES, INCREMENT CONTENTS OF TEM 1 

1 137 

5276 


JMP ADID+2 

/RETURN 



/CONSTANTS AND VARIABL 

ES TRACER PAGE4 

1 140 

0753 

PCI* 

PC 


1141 

0000 

PCD* 

0 


1 142 

0565 

MSWI* 

MSW 


1 143 

1777 

MI ON* 

- 600 1 


1 144 

7777 

Ml* 

- 1 


1 145 

0353 

LINK2* 

LINK 


1 146 

0352 

ACCU2* 

ACCU 


1 147 

0602 

TRACI* 

TRRET 


1 150 

07 54 

I ONfF 1 * 

I ONE 


1151 

0653 

PIMS 1 * 

PRIN 


1 152 

0306 

F* 

306 


1 153 

0301 

A* 

301 


1 154 

0726 

PRNT* 

PUNCH 


1 155 

0650 

PRETI* 

PRET 


1 156 

0177 

MS 177* 

177 


1 157 

0000 

TEM 1 * 

0 


1 160 

7600 

MS7600* 

7600 


1161 

4000 

M4000* 

4000 


1 162 

7000 

M 1 000* 

- 1000 


1 163 

5757 

1ST* 

JMP I TEM1 
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1 164 

1200 

INBL1* 

INBLK 

1 165 

0370 

MS370* 

370 

1 166 

7770 

M 1 0* 

- 10 

1 167 

7000 

MS7000* 

7000 

1 170 

1416 

PI OF I * 

PI OF 

1 171 

1400 

PI ONI * 

PI ON 

1 172 

0000 

IONFH* 

0 

1 173 

0000 

DUM 1 * 

0 

1 174 

0000 

DUM2, 0 

♦REGIN+1000 

1200 

0000 

INBLK* 

0 

1201 

7100 


CLL 

1 202 

3221 


DCA PCL 

1203 

1744 


TAD I BADRI 

1 204 

7041 


CIA 

1205 

1221 


TAD PCL 

1206 

4745 


JMS I COM 1 

1207 

5600 


JMP I INBLK 

1210 

5217 


JMP OUTB 

121 1 

1746 


TAD I EADR1 

1212 

7041 


CIA 

1213 

1221 


TAD PCL 

1214 

4745 


JMS I COM 1 

1215 

5600 


JMP I INBLK 

1216 

5600 


JMP I INBLK 

1217 

2200 

OUTB* 

ISZ INBLK 

1220 

5600 


JMP I INBLK 

1221 

0000 

PCL* 

0 

1222 

1370 


TAD CRT 

1223 

4765 


JMS I PNCI2 

1224 

137 1 


TAD LFD 

1225 

4765 


JMS I PNCI2 

1226 

5621 


JMP I PCL 

1227 

4740 

CLR* 

JMS I PRCL 

1230 

3747 


DCA I I0NF2 

1231 

3750 


DCA I CHS2 

1232 

3751 


DCA I TSW2 

1233 

3752 


DCA I TMD2 

1234 

3761 


DCA I CSWI 

1235 

3742 


DCA I I0NFH2 

1236 

5753 


JMP I CLST1 

1237 

4774 

PR0C1* 

JMS I.SAD2 

1240 

0246 


246 

1241 

5277 


JMP PAND 

1242 

4774 


JMS I SAD2 

1 243 

0332 


332 

1244 

5302 


JMP PSERC 

1245 

4774 


JMS I SAD2 

1246 

0323 


323 

1247 

5336 


JMP SKIP 

1250 

4774 


JMS I SAD2 

1251 

0337 


337 

1252 

5760 


JMP I BEG3I1 

1253 

3366 


DCA TEM2 

1254 

1366 


TAD TEM2 

1255 

0372 


AND MAS370 

1256 

1373 


TAD M260 

1257 

7640 


SZA CLA 

1260 

5274 


JMP QMRK 

1 261 

1366 


TAD TEM2 

1262 

0343 


AND MASK7 

1263 

3366 


DCA TEM2 

1264 

7001 


I AC 

1265 

3761 


DCA I CSWI 


/SUBROUTINE USED FOR MEMORY 
/PROTECTION 


/DIFFERENCE 

/COMPARE ROUTINE 

/EQUAL* FIRST EXIT MEANS 

/IN BLOCK* SECOND MEANS OUT BLOCK 


/DIFFERENCE WITH UPPER LIMIT 

/FIRST EXIT MEANS IN BLOCK 

/SECOND ALSO 

/SECOND 

/OUT OF BLOCK 

/SUBROUTINE TO PUNCH CRLF 

/CR 

/PUNCH 

/LF 

/EXIT 

/CLEAR MSW AND RESTORE 1*2 
/CLEAR IONFLAG 
/CLEAR CHECKSUM 
/CLEAR TRACE SWITCH 
/CLEAR TRACE MODE SWITCH 
/CLEAR CIPHER SWITCH 

/RETURN 

/CONTINUE COMMAND RECOGNITION 
/& FOR MASK? 

/YES 

/LETTER Z? 

/YES 

/LETTER S? 

/YES 

/CORRECTION SIGN? 

/YES SKIP READ WORD 

/STORE CHARACTER FOR CIPHER 

/RECOGNITION 

/ STRIP AND SUBTRACT 
/IS IT O- 7? 

/NO* PRINT? 

/YES 

/MASK CIPHER BITS 
/STORE 

/CSWJ =1 




1266 

1762 


TAD I WRD2 

1267 

7106 


CLL RTL 

1270 

7004 


RAL 

1271 

1366 


TAD TEM2 

1272 

3762 


DCA I WRD2 

1 273 

5763 


JMP I BEGM 

1 274 

1364 

QMRK, 

TAD C277 

1 275 

4765 


JMS I PMCI2 

1276 

5760 


JMP I BEG3I1 

1277 

1762 

PAMD, 

TAD I WRD2 

1300 

3355 


DCA MASK 

1 301 

5760 


JMP I BEG3I1 

1 302 

1775 

PSERCr 

TAD I WBADRI 

1 303 

3366 


DCA TEM2 

1 304 

1766 

SRMXT, 

TAD I TEM2 

1 305 

0355 


AMD MASK 

1 306 

7041 


CIA 

1 307 

1762 


TAD I WRD2 

1310 

7650 


SMA CLA 

1311 

5326 


JMP EMD 

1312 

1366 

TEND* 

TAD TEM2 

1313 

7041 


CIA 

1314 

1776 


TAD I WEADRI 

1315 

7640 


SZA CLA 

1316 

5322 


JMP.+4 

1317 

7240 


STA 

1 320 

3355 


DCA MASK 

1 321 

5767 


JMP I BEG2I2 

1 322 

7001 


I AC 

1 323 

1366 


TAD TEM2 

1 324 

3366 


DCA TEM2 

1 325 

5304 


JMP SRMXT 

1 326 

422 1 

FMD, 

JMS PCL 

1 327 

1366 


TAD TEM2 

1 330 

4754 


JMS I OCTPR 

1 331 

1341 


TAD C334 

1 332 

4765 


JMS I PMCI2 

1 333 

1766 


TAD I TEM2 

1 334 

4754 


JMS I OCTPR 

1 33 5 

5312 


JMP TEMD 

1 336 

1356 

SKIP, 

TAD SKI PIN 

1 337 

5757 


JMP I DO I 



/CONSTANTS AND VARIA: 

1 340 

1454 

PRCL, 

CLCOM 

1 341 

0334 

C334, 

334 

1 342 

1 172 

I0MEH2, 

IOMEH 

1 343 

0007 

MASK7, 

7 

1 344 

0567 

BADRI, 

BADR 

1 345 

0716 

COM 1, 

COMPR 

1 346 

0564 

EADR1, 

EADR 

1 347 

0754 

I0NF2, 

I ONE 

1350 

0574 

CHS2, 

CHS 

1 351 

0370 

TSW2, 

TSW 

1 352 

0365 

TMD2, 

TMODS 

1353 

0336 

CLST1, 

CL I ST 

1 354 

0671 

OCTPR, 

0 CPM 

1 355 

7777 

MASK, 

7777 

1 356 

7410 

SKI PIN, 

7410 

1 357 

1026 

DO I, 

DO 

1 360 

0207 

BEG3I1, 

BEG 3 

1 361 

0354 

CSWI, 

csw 

1 362 

0371 

WRD2, 

WORD 

1 363 

0210 

BEGM, 

BEG3+1 

1364 

0277 

C277, 

277 

1 365 

0726 

PMCI2, 

PUMCH 


/WORD 

/FORM OCTAL NUMBER 
/ADD NEW CIPHER 
/RESTORE WORD 
/RETURN COMMAND 
/QUESTIONMARK 
/PUNCH 

/RETURN COMMAND 
/WORD 

/STORE MASK FOR WORD SEARCH 
/RETURN COMMAND 


/STORE TO GO INDIRECT 
/WORD ON THIS ADDRESS 


/COMPARE 

/EQUAL? 

/YES 

/NO 

/END OF BLOCK? 

/NO 

/YES 

/M A SK 1 = 1111 
/RETURN COMMAND 
/ACCU S =1 

/STEP UP BEGA 
/TRY NEXT 
/PRINT CRLF 
/ADDRESS 
/PRINT OCTAL 
/BACKSLASH 
/PUNCH 

/PUNCH CONTENTS 

/FIND OTHER WORDS 
/7410 

/EXECUTE AN UNCONDITIONAL SKIP 
TRACER PAGF5 
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1 366 

0000 

TEM2, 

0 

1 367 

0206 

BEG2I2, 

BEG 2 

1 370 

0215 

CRT, 

215 

1 371 

0212 

LFD, 

212 

1 372 

0370 

MAS370, 

370 

1 373 

7520 

M260, 

-260 

1 37 A 

0323 

SAD2, 

SAD 

1 375 

1 521 

WBADRI, 

WBADR 

1 376 

1 520 

WEADRI, 

*BEGINS 

WE A DR 

1200 

1 400 

1701 

PI ON, 

TAD I IONFH3 

1 401 

7640 


SZA CLA 

1 402 

5702 


JMP I DO7I 

1403 

1001 


TAD 1 

1404 

3703 


DCA I DUM1I 

1 405 

1002 


TAD 2 

1406 

3704 


DCA I DUM2I 

1 407 

1305 


TAD INIS 

1410 

3001 


DCA 1 

141 1 

1306 


TAD INTDI 

1412 

3002 


DCA 2 

1413 

7001 


I AC 

1414 

3701 


DCA I IONFH3 

1415 

5702 


JMP I DO7I 

1416 

4220 

PIOF, 

JMS RST 

1417 

5702 


JMP I DO7I 

1420 

1420 

RST, 

0 

1 421 

1701 


TAD I IONFH3 

1 422 

7650 


SNA CLA 

1423 

7410 


SKP 

1 424 

4710 


JMS I RESTI 

1425 

3701 


DCA I IONFH3 

1426 

3707 


DCA I I ONACT 

1 427 

5620 


JMP I RST 

1 430 

1420 

PTRAIL, 

0 

1431 

131 1 


TAD M200 

1432 

3312 


DCA COUNT 

1 433 

1313 


TAD C200 

1434 

4714 


.JMS I PNCI3 

1435 

2312 


ISZ COUNT 

1436 

5233 


JMP.-3 

1 437 

5630 


JMP I PTRAIL 

1 440 

0000 

LEAD, 

0 

1441 

1300 


TAD LFLAG 

1 442 

7650 


SNA CLA 

1443 

4230 


JMS PTRAIL 

1 444 

2300 


ISZ LFLAG 

1 445 

5640 


JMP I LEAD 

1446 

0000 

CATCH, 

0 

1 447 

7604 


LAS 

1450 

7710 


SPA CLA 

1451 

5676 


JMP I PRINT 

1452 

1677 


TAD I TM0D2 

1 453 

5646 


JMP I CATCH 

1 454 

0000 

CLCON, 

0 

1 455 

4220 


JMS RST 

1456 

7240 


STA 

1 457 

3675 


DCA I MSK 

1460 

3674 


DCA I MSWI1 

1 461 

3724 


DCA I LFLI 

1 462 

5654 


JMP I CLCON 

1463 

4715 

PR0C2, 

JMS I SAD3 

1 464 

0327 


327 

1 465 

5267 


JMP WBLK 

1 466 

5716 


JMP I G00N2 


/NOT FIRST ION MET 

/SAVE LOC. 1 

/SAVE LOC. 2 
/TRAP 


/1ONFH: = 1 

/RESTORE LOC 1 AND 2 
/RETURN 

/RESTRE ROUTINE 

/I0NFH3=1? 

/NO 

/RESTORE 

/CLEAR ION FLAGS 


/ROUTINE TRAIL PUNCH 


/PUNCH TRAIL 
/READY? 

/NO 

/YES 

/ROUTINE LEADER PRINT? 

/FIRST TIME BINPUNCH? 

/YES, PUNCH TRAIL 

/LFLAG 

/EXIT 

/CATCH DEPENDS ON SR 

/SR NEGATIVE? 

/YES, PRINT INSTR. 

/NO 

/RETURN TO TRACER 

/RESTORE BEFORE RESTART PTOD 


/SET WORD MASK TO 7777 
/CLEAR MSW 
/CLEAR LEADER FLAG 
/CONTINUE CLEARING 
/INVESTIGATE COMMANDS 
/LETTER W? 

/YES 

/NO, CONTINUE 
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1467 

1717 WBLK* 

TAD 

I 

WRD3 

1470 

3320 

DCA 

WE A DR 

1471 

1722 

TAD 

I 

TBADRI 

1472 

3321 

DCA 

WBADR 

1473 

5723 

JMP 

I 

BEG2I 1 


/LAST WORD TYPED BY USER 
/STORE 

/FIRST WORD TYPED BY USER 
/STORE 

/RETURN COMMAND WITH CRLF 


*TRRET+ 3 


0605 

4757 

JMS I TRACE*157 

0757 

1446 

*TRACE*157 

CATCH 


1474 

0565 

/CONSTANTS AND VARIABLES PAGF6 
NSWI1* MSW 

1 475 

1355 

MSK* 

MASK 

1476 

0643 

PR I NT* 

PINS 

1 477 

0 36 5 

TM0D2* 

TMODS 

1 500 

0000 

LFLAG* 

0 

1 501 

1 172 

I0NFH3* 

IONFH 

1 502 

1035 

DO 7 I * 

D0+7 

1 503 

1 173 

DUN 1 I * 

DUM1 

1 504 

1 174 

DUM2I* 

DUM2 

1 505 

5402 

INIS* 

JMP I 2 

1 506 

0734 

INTDI* 

INTD 

1 507 

0754 

IONACT* 

I ONF 

1510 

1044 

RESTI* 

REST 

151 1 

7600 

M200* 

-200 

1 512 

0000 

COUNT* 

0 

1513 

0200 

C200* 

200 

1 514 

0726 

PNCI3* 

PUNCH 

1515 

0323 

SAD3* 

SAD 

1516 

1237 

G00N2* 

PR0C1 

1 517 

0371 

WRD3* 

WORD 

1 520 

0000 

WEADR* 

0 

1 521 

0000 

WBADR* 

0 

1 522 

0543 

TBADRI* 

TBADR 

1 523 

0206 

BEG2I 1* 

BEG2 

1 524 

1500 

LFLI * 

LFL AG 

1 525 

0000 

BL ST* 

0 
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A 

1153 

ACCU 

0352 

ACCUI 

0557 

ACCU1 

0770 

ACCU2 

1 146 

ACU 

0446 

ADID 

1074 

ASRS 

0571 

AUTO 

1 127 

BA DR 

0567 

BADRI 

1344 

BCNT 

0572 

BEGIN 

0200 

BEGN 

1363 

BEG2 

0206 

BEG 21 

0556 

BEG 21 1 

1523 

BEG2I2 

1367 

BEG3 

0207 

BEG 31 

0566 

BEG 31 1 

1360 

BINT 

0464 

BLST 

1525 

RMOD 

0276 

BNXT 

0277 

CATCH 

1446 

CHS 

0574 

CHS2 

1350 

CLCON 

1454 

CLEAR 

0372 

CLIST 

0336 

CLOSE 

0256 

CLR 

1227 

CLST1 

13 53 

COM PR 

0716 

COM 1 

1345 

COUNT 

1512 

CR 

0212 

CRLF1 

0373 

CRLF2 

0250 

CRLF3 

0766 

CRT 

1370 

CSW 

0354 

CSWI 

1361 

ClOO 

0570 

C200 

1513 

C260 

0772 

C277 

1364 

C 334 

1341 

DO 

1026 

DO I 

1357 

D071 

1502 

DUM 1 

1 173 

DUM 1 I 

1503 

DUM 2 

1174 

DUM2I 

1504 

EADR 

0564 

EADR1 

1346 


ERSE 

0551 

F 

1 152 

FADR 

0461 

FND 

1326 

GO 

0316 

GOON 

0377 

G00N1 

0575 

G00N2 

1516 

GR5 

1060 

I NBLK 

1200 

INBL1 

1 164 

INIS 

1 505 

I NTD 

0734 

INTDI 

1506 

I NTP 

1000 

INTP1 

0550 

I NTP2 

0764 

IONACT 

1 507 

T ONF 

0754 

I ONFH 

1 172 

IONFHI 

0777 

1 0NFH2 

1342 

IONFH3 

1501 

I ONF 1 

1 150 

I 0NF2 

1347 

I ST 

1 163 

LADR 

0355 

LCNT 

0356 

LCNT1 

0555 

LCNT2 

0763 

LEAD 

1440 

LF 

0215 

LFD 

1371 

LFLAG 

1 500 

LFLGT 

0577 

LFLI 

1524 

LINK 

0353 

L INK1 

0767 

LINK2 

1 145 

LNK 

0445 

LOCK 

0357 

MASK 

1355 

MASK7 

1343 

MAS370 

1372 

MI ON 

1 143 

MPRT 

0453 

MPRT1 

1 100 

MSK 

1475 

MSW 

0565 

MSVI 

1 142 

MSWI 1 

1474 

MS177 

1 156 

MS370 

1165 

MS7 

0773 

MS7000 

1 167 

MS7600 

1 160 

M 1 

1 144 


M 10 

1 166 

M 1 000 

1 162 

M 200 

151 1 

M 260 

1373 

M 4 

0774 

M 40 

0360 

M 4000 

1 161 

M 77 

0573 

OCNT 

0775 

0 CPN 

0671 

OCTP 

0361 

OCTPR 

13 54 

OUTB 

1217 

PAND 

1277 

PBIN 

051 1 

PC 

0753 

PCD 

1 141 

PCHS 

0526 

PCI 

1 140 

PCL 

1221 

PINS 

0643 

PINS1 

1 151 

P I OF 

1416 

PIOFI 

1 170 

PI ON 

1400 

PI ONI 

1 171 

PiJMP 

1 124 

P,JMS 

1 120 

PMES 

1052 

PNC I 

0376 

PNC I 1 

0563 

PNC I 2 

1365 

PNC I 3 

1514 

PNTR 

0362 

PNTR1 

0553 

PNTR2 

0762 

PRCL 

1340 

PREPI 

0755 

PREPR 

0344 

PREPI 

0552 

PRET 

0650 

PRETI 

1 155 

PRIN 

0653 

PRINT 

1476 

PRNT 

1154 

PROC 

0400 

PR0C1 

1237 

PR0C2 

1463 

PSERC 

1302 

PSLH 

0273 

PSLH1 

0562 

PTRAIL 

1430 

PTRALI 

0544 

PTRI 

0576 

PUNCH 

0726 

QMRK 

1274 

READ 

0745 


READI 

0374 

REG 

0363 

REG 1 

0560 

REG2 

0765 

RESRE 

U 7 76 

REST 

1044 

RESTI 

1510 

RMUV 

0431 

RNXT 

0434 

RST 

1420 

RSTI 

0545 

SAD 

0323 

SADI 

0547 

SAD2 

1374 

SAD3 

1515 

SBPT 

0626 

SKIP 

1336 

SKIPIN 

1356 

SLASH 

0242 

SLSH 

0226 

SLS 1 

0756 

SNXT 

0631 

SP 

0561 

SP1 

0771 

SRNXT 

1304 

STADR 

0364 

STAD1 

0752 

STAR 

0535 

STAR I 

0375 

TBADR 

0543 

TBADRI 

1522 

TEM 1 

1157 

TEM2 

1366 

TEM 3 

0546 

TEND 

1312 

TMD2 

1352 

TMOD 

031 1 

TMODS 

0365 

TM0D1 

0757 

TM0D2 

1477 

TMREG 

0366 

TMRG1 

0761 

TRACE 

0600 

TRACER 

0367 

TRACI 

1 147 

TRRET 

0602 

TSW 

0370 

TSW1 

0760 

TSW2 

1351 

WBADR 

1521 

WBADRI 

1375 

WBLK 

1467 

WEADR 

1520 

WEADRI 

1376 

WORD 

0371 

WRDI 

0554 

WRD2 

1362 

WRD3 

1517 
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